home *** CD-ROM | disk | FTP | other *** search
/ PCMania 40 / PCMania CD40_1.iso / render40 / oca_a / peon.inc < prev    next >
Text File  |  1995-10-06  |  571b  |  27 lines
  1. #include "shapes.inc"
  2.  
  3. #declare Base=union{
  4.         intersection{
  5.         quadric{Ellipsoid scale <2.3 2.3 2.3>}  
  6.         plane{<0 -1 0> 0}
  7.         }
  8.           quadric{Ellipsoid scale <2 .5 2> translate <0 2 0>}
  9. }
  10.  
  11. #declare Cuerpo=intersection{
  12.         plane{<0 1 0> 5}
  13.         quadric{Hyperboloid_Y scale <.5 1.5 .5> translate <0 5 0>}
  14.         plane{<0 -1 0> 1}
  15. }
  16.  
  17. #declare Cabeza=union{
  18.         quadric{Ellipsoid scale <1.1 .4 1.1> translate <0 6 0>}
  19.         quadric{Ellipsoid translate <0 7.3 0>}  
  20. }
  21.  
  22. #declare Peon=union{
  23.         union{Base}
  24.         intersection{Cuerpo translate <0 1 0>}
  25.         union{Cabeza}
  26.         }
  27.